home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASCSRC.ZIP / NEWREAL4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  1.1 KB  |  30 lines
  1.                                 (* Chapter 3 - Program 10 *)
  2. program New_Real_Types;
  3.  
  4. (* Note;  This program will not work unless you are using *)
  5. (*        TURBO Pascal version 4.0 and you must have an   *)
  6. (*        80X87 Math Co-processor installed.              *)
  7. (*        Select the 80X87 mode from the pull-down menus  *)
  8. (*          as follows;                                   *)
  9. (*          Options/Compiler/Numeric processing  Hardware *)
  10.  
  11. var Number       : real;
  12.     Small_Number : single;
  13.     Big_Number   : double;
  14.     Huge_Number  : extended;
  15.     Whole_Number : comp;
  16.  
  17. begin
  18.    Number       := 100000000000000000000000000.0;
  19.    Small_Number := 100000000000000000000000000.0;
  20.    Big_Number   := 100000000000000000000000000.0;
  21.    Huge_Number  := 100000000000000000000000000.0;
  22.    Whole_Number := 1000000000000000000.0;
  23.  
  24.    Writeln('Number       = ',Number      :40:3);
  25.    Writeln('Small_Number = ',Small_Number:40:3);
  26.    Writeln('Big_Number   = ',Big_Number  :40:3);
  27.    Writeln('Huge_Number  = ',Huge_Number :40:3);
  28.    Writeln('Whole_Number = ',Whole_Number:40:3);
  29. end.
  30.